home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / SS_TXT.PRG < prev    next >
Text File  |  1991-05-20  |  6KB  |  89 lines
  1. *.............................................................................
  2. *   Program Name: SS_TXT.PRG      Copyright: HRF Associates, Inc.                                     
  3. *   Date Created: 06/10/91           Language: Clipper                                             
  4. *   Time Created: 11:55:01             Author: Bob Fogle                                 
  5. *.............................................................................
  6. PRIVATE svc, mtitle, pgsel, asel, xx, yy, bxx, byy
  7. PARAMETER asel
  8.  
  9. DO CASE
  10.  
  11.   CASE asel = 2
  12.     mTITLE ="SEGUE SUPPLEMENT"
  13.     yy=5
  14.     xx=7
  15.     xxlen=13
  16.     yylen=70
  17.     SETCOLOR(if(iscolor()=.F.,NOCOLOR,"B/W"))
  18.     box1= shadowbox(xx-2,yy-2,xx+xxlen,yy+yylen+1,3,mTITLE)
  19.     spread("The SEGUE SUPPLEMENT consists of functions written in Clipper that    ",xx++)
  20.     spread("incorporate the SEGUE API.  They are available to substitute for      ",xx++)
  21.     spread("functions found in other libraries and to show how easily programmers ",xx++)
  22.     spread("can use SEGUE to create their own network functions within Clipper.   ",xx++)
  23.     spread("                                                                      ",xx++)
  24.     spread('Source code is provided for most SUPPLEMENT functions to registered   ',xx++)
  25.     spread('users.  New SUPPLEMENT functions will be available as they are created',xx++)
  26.     spread("via BBS or disk to newly registered users.                            ",xx++)
  27.     spread("                                                                      ",xx++)
  28.     spread("SUPPLEMENT functions for the BINDERY are the only functions shipped   ",xx++)
  29.     spread("with SEGUE; primarily for demonstration purposes.                     ",xx++)
  30.     spread("                                                                      ",xx++)
  31.     SETCOLOR(if(iscolor()=.F.,NOCOLOR,"R/W"))                                                       
  32.     spread("Press any key to continue...",xx++)                                   
  33.     inkey(0)
  34.     byebyebox(box1)
  35.  
  36.   CASE asel = 3
  37.     mTITLE ="SEGUE SUBSTITUTIONS"
  38.     yy=5
  39.     xx=10
  40.     xxlen=9
  41.     yylen=70
  42.     SETCOLOR(if(iscolor()=.F.,NOCOLOR,"B/W"))
  43.     box1= shadowbox(xx-2,yy-2,xx+xxlen,yy+yylen+1,3,mTITLE)
  44.     spread("Many functions found in other network libraries can be substituted by ",xx++)
  45.     spread("by SEGUE directly.  For example:                                      ",xx++)
  46.     spread("Suppose your existing code has function N_STANO() from another library",xx++) 
  47.     spread("and this function returns the logical station number of the current   ",xx++)
  48.     spread("user.  In this instance, the SEGUE API, CTNR(), can be substituted    ",xx++)
  49.     spread('directly.  Within an include file, under Clipper 5.0, the #command    ',xx++)
  50.     spread('directive can be used to set code that has N_STANO() to CTNR() as     ',xx++)
  51.     spread("follows: #command N_STAN() => CTNR()                                  ",xx++)
  52.     SETCOLOR(if(iscolor()=.F.,NOCOLOR,"R/W"))                                                
  53.     spread("Press any key to continue...",xx++)                    
  54.     inkey(0)                                                       
  55.     byebyebox(box1)                                                
  56.  
  57.     SETCOLOR(if(iscolor()=.F.,NOCOLOR,"B/W"))
  58.     yy=4
  59.     xx=4
  60.     xxlen=16
  61.     yylen=71
  62.     box1= shadowbox(xx-2,yy-2,xx+xxlen,yy+yylen+1,3,mTITLE)
  63.     spread("Other functions that can not be directly substituted by the SEGUE API  ",xx++)
  64.     spread("can indirectly be substituted.  For example:                           ",xx++)
  65.     spread("Suppose your existing code has function N_BANNR() from another library ",xx++)
  66.     spread("which enables or disables the printing of an identifying banner page at",xx++)
  67.     spread("the start of each spooled print job.  A SUPPLEMENT function can be made",xx++)
  68.     spread('to create an equivalent.  Then, within an include file, the #command or',xx++)
  69.     spread('#translate directive can be use to set code with N_BANNR equal to your ',xx++)
  70.     spread("newly created function.                                                ",xx++)
  71.     spread("In this instance, only two lines of code would be needed as follows:   ",xx++)
  72.     spread("                                                                       ",xx++)
  73.     spread("FUNCTION PRBANNER( cText )  // passed parameter is the banner text.    ",xx++)
  74.     spread("RETURN PRJBDFS(,,,,,,cTEXT) // SEGUE API for setting only the banner.  ",xx++)
  75.     spread("                                                                       ",xx++)
  76.     spread("Accordingly, you would set the include file as follows:                ",xx++)
  77.     spread("         #translate N_BANNR(<cString>) => PRBANNER(<cString>)          ",xx++)
  78.                                                                                  
  79.     SETCOLOR(if(iscolor()=.F.,NOCOLOR,"R/W"))                                                              
  80.     spread("Press any key to continue...",xx++)                                  
  81.     inkey(0)                                                                     
  82.     byebyebox(box1)                                                              
  83.                                                                                  
  84. ENDCASE                                                                          
  85. set message to 23 center                                                         
  86. RETURN                                                                           
  87.  
  88.  
  89.